Option Explicit
'ۭqҲ
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, _
                           ByVal Shift As Integer)
    MsgBox "bTextBox1KeyCode" & KeyCode & "Q}F"
End Sub
